home *** CD-ROM | disk | FTP | other *** search
/ Total Network Tools 2002 / NextStepPublishing-TotalNetworkTools2002-Win95.iso / Archive / Misc Servers / Zope.exe / MAPPLY.PY < prev    next >
Encoding:
Text File  |  1999-09-01  |  6.2 KB  |  162 lines
  1. ##############################################################################
  2. # 
  3. # Zope Public License (ZPL) Version 1.0
  4. # -------------------------------------
  5. # 
  6. # Copyright (c) Digital Creations.  All rights reserved.
  7. # 
  8. # This license has been certified as Open Source(tm).
  9. # 
  10. # Redistribution and use in source and binary forms, with or without
  11. # modification, are permitted provided that the following conditions are
  12. # met:
  13. # 
  14. # 1. Redistributions in source code must retain the above copyright
  15. #    notice, this list of conditions, and the following disclaimer.
  16. # 
  17. # 2. Redistributions in binary form must reproduce the above copyright
  18. #    notice, this list of conditions, and the following disclaimer in
  19. #    the documentation and/or other materials provided with the
  20. #    distribution.
  21. # 
  22. # 3. Digital Creations requests that attribution be given to Zope
  23. #    in any manner possible. Zope includes a "Powered by Zope"
  24. #    button that is installed by default. While it is not a license
  25. #    violation to remove this button, it is requested that the
  26. #    attribution remain. A significant investment has been put
  27. #    into Zope, and this effort will continue if the Zope community
  28. #    continues to grow. This is one way to assure that growth.
  29. # 
  30. # 4. All advertising materials and documentation mentioning
  31. #    features derived from or use of this software must display
  32. #    the following acknowledgement:
  33. # 
  34. #      "This product includes software developed by Digital Creations
  35. #      for use in the Z Object Publishing Environment
  36. #      (http://www.zope.org/)."
  37. # 
  38. #    In the event that the product being advertised includes an
  39. #    intact Zope distribution (with copyright and license included)
  40. #    then this clause is waived.
  41. # 
  42. # 5. Names associated with Zope or Digital Creations must not be used to
  43. #    endorse or promote products derived from this software without
  44. #    prior written permission from Digital Creations.
  45. # 
  46. # 6. Modified redistributions of any form whatsoever must retain
  47. #    the following acknowledgment:
  48. # 
  49. #      "This product includes software developed by Digital Creations
  50. #      for use in the Z Object Publishing Environment
  51. #      (http://www.zope.org/)."
  52. # 
  53. #    Intact (re-)distributions of any official Zope release do not
  54. #    require an external acknowledgement.
  55. # 
  56. # 7. Modifications are encouraged but must be packaged separately as
  57. #    patches to official Zope releases.  Distributions that do not
  58. #    clearly separate the patches from the original work must be clearly
  59. #    labeled as unofficial distributions.  Modifications which do not
  60. #    carry the name Zope may be packaged in any form, as long as they
  61. #    conform to all of the clauses above.
  62. # 
  63. # 
  64. # Disclaimer
  65. # 
  66. #   THIS SOFTWARE IS PROVIDED BY DIGITAL CREATIONS ``AS IS'' AND ANY
  67. #   EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  68. #   IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  69. #   PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL DIGITAL CREATIONS OR ITS
  70. #   CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  71. #   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  72. #   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  73. #   USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  74. #   ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  75. #   OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  76. #   OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  77. #   SUCH DAMAGE.
  78. # 
  79. # 
  80. # This software consists of contributions made by Digital Creations and
  81. # many individuals on behalf of Digital Creations.  Specific
  82. # attributions are listed in the accompanying credits file.
  83. # 
  84. ##############################################################################
  85. """Provide an apply-like facility that works with any mapping object
  86. """
  87.  
  88. def default_call_object(object, args, context):
  89.     result=apply(object,args) # Type s<cr> to step into published object.
  90.     return result
  91.  
  92. def default_missing_name(name, context):
  93.     raise TypeError, 'argument %s was ommitted' % name
  94.  
  95. def default_handle_class(klass, context):
  96.     if hasattr(klass,'__init__'): 
  97.         f=klass.__init__.im_func
  98.         c=f.func_code
  99.         names=c.co_varnames[1:c.co_argcount]
  100.         return klass, names, f.func_defaults
  101.     else:
  102.         return klass, (), ()
  103.  
  104. def mapply(object, positional=(), keyword={},
  105.            debug=None, maybe=None,
  106.            missing_name=default_missing_name,
  107.            handle_class=default_handle_class,
  108.            context=None, bind=0,
  109.            ):
  110.  
  111.     if hasattr(object,'__bases__'):
  112.         f, names, defaults = handle_class(object, context)
  113.     else:
  114.         f=object
  115.         im=0
  116.         if hasattr(f, 'im_func'):
  117.             im=1
  118.         elif not hasattr(f,'func_defaults'):
  119.             if hasattr(f, '__call__'):
  120.                 f=f.__call__
  121.                 if hasattr(f, 'im_func'):
  122.                     im=1
  123.                 elif not hasattr(f,'func_defaults') and maybe: return object
  124.             elif maybe: return object
  125.     
  126.         if im:
  127.             f=f.im_func
  128.             c=f.func_code
  129.             defaults=f.func_defaults
  130.             names=c.co_varnames[1:c.co_argcount]
  131.         else:
  132.             defaults=f.func_defaults
  133.             c=f.func_code
  134.             names=c.co_varnames[:c.co_argcount]
  135.  
  136.     nargs=len(names)
  137.     if positional:
  138.         positional=list(positional)
  139.         if bind and nargs and names[0]=='self':
  140.             positional.insert(0, missing_name('self', context))
  141.         if len(positional) > nargs: raise TypeError, 'too many arguments'
  142.         args=positional
  143.     else:
  144.         if bind and nargs and names[0]=='self':
  145.             args=[missing_name('self', context)]
  146.         else:
  147.             args=[]
  148.  
  149.     get=keyword.get
  150.     nrequired=len(names) - (len(defaults or ()))
  151.     for index in range(len(args), len(names)):
  152.         name=names[index]
  153.         v=get(name, args)
  154.         if v is args:
  155.             if index < nrequired: v=missing_name(name, context)
  156.             else: v=defaults[index-nrequired]
  157.         args.append(v)
  158.  
  159.     args=tuple(args)
  160.     if debug is not None: return debug(object,args,context)
  161.     else: return apply(object,args)
  162.